home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGASIC
/
BASFILES.LZH
/
MAXMIN.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-09-10
|
405b
|
22 lines
'$INCLUDE:'QBTOOLS.INC'
'' DECLARE FUNCTION Maximum% (v1%, v2%)
'' DECLARE FUNCTION Minimum% (v1%, v2%)
'' '$INCLUDE: 'qbtools2.inc'
FUNCTION Maximum% (v1%, v2%)
IF v1% >= v2% THEN
Maximum% = v1%
ELSE
Maximum% = v2%
END IF
END FUNCTION
FUNCTION Minimum% (v1%, v2%)
IF v1% >= v2% THEN
Minimum% = v2%
ELSE
Minimum% = v1%
END IF
END FUNCTION